100 DE=PEEK(186):IFDV<8THENDV=8
110 GOSUB130
120 GOTO290
130 PRINT"[147]":POKE53280,0:POKE53281,0:IFFTHENRETURN
140 POKE214,10:PRINT"[145]";
150 PRINT"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
160 FORI=1TO12:PRINT"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:NEXT:PRINT""
170 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
180 POKE214,12:PRINT"[145]"TAB(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
190 FORI=1TO7:PRINTTAB(2)"[155]                                    [146][223]":NEXT
200 PRINTTAB(2)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][223]"
210 PRINT"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
220 POKE214,14:PRINT"[145][155]";
230 FORI=1TO5:READA$:GOSUB240:NEXT:GOTO250
240 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
250 POKE214,24:PRINT"[145]"SPC(13)"[158][204] [207] [193] [196] [201] [206] [199]":RETURN
260 DATA"[212][160][200][160][197] [160] [208] [204] [193] [206] [206] [197] [210]","BY [194]ARBARA [211]CHULAK"
270 DATA"[214]1.0 [208]UBLISHED ON [204][207][193][196][211][212][193][210] #85","[211]UBSCRIPTIONS 1-800-831-2694"
280 DATA"[195]OPYRIGHT ([195]) 1991 [211]OFTDISK"
290 POKE214,7:PRINT:PRINT"[153]             [204]OADING [205][204]..."
300 SYS57812"PSB FONT",DE,0:POKE780,0:POKE781,0:POKE782,40:SYS65493
310 SYS57812"READER 8000",DE,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
320 POKE53272,27
330 SYS57812"I-MENU $C800",DE,0:POKE780,0:POKE781,0:POKE782,200:SYS65493
340 POKE214,7:PRINT:PRINT"[153]           [204]OADING [208]ROGRAM..."
350 SYS57812"PLAN.O",DE,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
360 PRINT"[144]LOAD"CHR$(34)"PLAN"CHR$(34)","DE":"
370 PRINT"RUN:"
380 POKE43,1:POKE44,48:POKE12288,0
390 POKE631,13:POKE632,13:POKE633,13:POKE198,3
400 NEW